home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 November / 64er_Magazin_84-11_1984_Markt__Technik_de.d64 / list 6 (dump) (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  552b  |  15 lines
  1. 50 rem ********************************
  2. 51 rem *          d  u  m  p          *
  3. 52 rem ********************************
  4. 53 rem * berichtigung des             *
  5. 54 rem * simon's basic-befehls Dl   *
  6. 55 rem ********************************
  7. 59 k=0:print" d u m p [146]    ?checksum ";
  8. 60 for i=$9f9c to $9fa7:read j:poke i,j:k=k+j:next
  9. 61 data 160,4,32,57,160,136,208,250,234
  10. 62 data 234,234,234:poke $80b9,221:poke $808c,68
  11. 63 poke $9fd6,240:poke $9fd7,27:poke $9fd8,200
  12. 64 for i=$9ff0 to $9ffc:read j:poke i,j:k=k+j:next
  13. 65 data 160,4,44,160,5,169,34,32,210,255,76,158,159
  14. 66 ifk=3409thenprint"ok":Dg:print"error
  15.